Quản lý phần mềm bán vé xe VB
8.383 lượt xem;
- Tuyen_xe.vb
- Library /
- PhanMemBanVeXe_Full /
- project /
1 Imports System.Data.SqlClient
2 Public Class Tuyen_xe
3 Private bang_tuyen_xe As DataTable
4 Private vi_tri_hien_hanh As Integer
5 Private lenh As String
6 Private flag As Boolean
7
8 Public Sub UpdateTuyenXe()
9 Doc_bang_tuyen_xe()
10 Tao_lien_ket()
11 vi_tri_hien_hanh = 0
12 Xuat_thong_tin_Tuyen_xe()
13 Form_Main.luoi_Tuyen_xe.ReadOnly = True
14 Lock_Control(False)
15 LockButton(False)
16 End Sub
17
18 #Region "Doc bang tuyen xe da xong"
19 Private Sub Doc_bang_tuyen_xe()
20 'Lam sach luoi sau moi lan cap nhat
21 Form_Main.luoi_Tuyen_xe.ClearSelection()
22 lenh = "Select * from TuyenXe"
23 bang_tuyen_xe = Doc_bang(lenh)
24 Form_Main.luoi_Tuyen_xe.DataSource = bang_tuyen_xe
25 End Sub
26 #End Region
27
28 #Region "Tao lien ket giua cac dieu khien voi datagridview da hoan tat"
29 Private Sub Tao_lien_ket()
30 With Form_Main.cbo_IdTuyen
31 .DataSource = Form_Main.luoi_Tuyen_xe.DataSource
32 .DisplayMember = "IdTuyen"
33 .ValueMember = "IdTuyen"
34 .SelectedValue = "IdTuyen"
35 End With
36 Xoa_lien_ket()
37
38 Form_Main.cbo_IdTuyen.Text = Form_Main.luoi_Tuyen_xe.Rows(0).Cells.Item(0).Value.ToString
39 Form_Main.cbo_TenTuyen.DataBindings.Add("text", Form_Main.luoi_Tuyen_xe.DataSource, "TenTuyen")
40 Form_Main.cbo_DiaDiemDi.DataBindings.Add("text", Form_Main.luoi_Tuyen_xe.DataSource, "DiaDiemDi")
41 Form_Main.cbo_DiaDiemDen.DataBindings.Add("text", Form_Main.luoi_Tuyen_xe.DataSource, "DiaDiemDen")
42 End Sub
43 #End Region
44
45 #Region "Xoa lien ket giua cac dieu khien voi datagridview da hoan tat"
46 Private Sub Xoa_lien_ket()
47 Form_Main.cbo_TenTuyen.DataBindings.Clear()
48 Form_Main.cbo_DiaDiemDi.DataBindings.Clear()
49 Form_Main.cbo_DiaDiemDen.DataBindings.Clear()
50 End Sub
51 #End Region
52
53 #Region "Xu ly cac nut di chuyen va xuat thong tin tuyen xe da hoan tat"
54 Private Sub Xuat_thong_tin_Tuyen_xe()
55 Dim dong As DataRow = bang_tuyen_xe.Rows(vi_tri_hien_hanh)
56 With Form_Main
57 .cbo_IdTuyen.Text = dong("IdTuyen").ToString
58 .cbo_TenTuyen.Text = dong("TenTuyen").ToString
59 .cbo_DiaDiemDi.Text = CStr(dong("DiaDiemDi"))
60 .cbo_DiaDiemDen.Text = dong("DiaDiemDen").ToString
61 End With
62 End Sub
63
64 Public Sub Di_chuyen_ve_sau()
65 If vi_tri_hien_hanh < bang_tuyen_xe.Rows.Count - 1 Then
66 vi_tri_hien_hanh += 1
67 Xuat_thong_tin_Tuyen_xe()
68 End If
69 End Sub
70
71 Public Sub Di_chuyen_ve_truoc()
72 If vi_tri_hien_hanh > 0 Then
73 vi_tri_hien_hanh -= 1
74 Xuat_thong_tin_Tuyen_xe()
75 End If
76 End Sub
77
78 Public Sub Di_chuyen_ve_dau()
79 vi_tri_hien_hanh = 0
80 Xuat_thong_tin_Tuyen_xe()
81 End Sub
82
83 Public Sub Di_chuyen_ve_cuoi()
84 vi_tri_hien_hanh = bang_tuyen_xe.Rows.Count - 1
85 Xuat_thong_tin_Tuyen_xe()
86 End Sub
87 #End Region
88
89 #Region "Them, sua tuyen da hoan tat"
90 Public Sub Them()
91 flag = True
92 Lock_Control(True)
93 LockButton(True)
94 Clear_Control()
95 Form_Main.luoi_Tuyen_xe.Enabled = False
96 For i As Integer = 0 To bang_tuyen_xe.Rows.Count - 1
97 Form_Main.cbo_TenTuyen.Items.Add(bang_tuyen_xe.Rows(i)("TenTuyen").ToString)
98 Next
99 End Sub
100
101 Public Sub Sua()
102 flag = False
103 Lock_Control(True)
104 LockButton(True)
105 'Form_Main.cbo_SoXe.Enabled = False
106 Form_Main.Luoi_Xe.ReadOnly = False
107 Form_Main.cbo_IdTuyen.Enabled = False
108 End Sub
109
110 Public Sub Luu()
111 Tao_ket_noi()
112 If connect.State = ConnectionState.Open Then
113 connect.Close()
114 End If
115 With Form_Main
116 If flag = True Then 'Them nguoi dung moi
117 If TestInfo() Then
118 Dim dg As DialogResult = MessageBox.Show("Ban có chắn chắc muốn thêm tuyến xe này không." & vbNewLine & _
119 "Click OK đê đồng ý, Cancel để hủy.", "Thông báo", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
120 If dg = Windows.Forms.DialogResult.OK Then
121 Dim flag As Integer = 0
122 Dim sqlCM As New SqlCommand("select IdTuyen from TuyenXe", connect)
123 Dim sqlDR As SqlDataReader
124 connect.Open()
125 sqlDR = sqlCM.ExecuteReader
126 While sqlDR.Read() = True
127 If sqlDR.GetValue(0).ToString = .cbo_IdTuyen.Text Then
128 flag = 1
129 MessageBox.Show("Mã số tuyến " + .cbo_IdTuyen.Text + " đã tồn tại, vui lòng kiểm tra lại ma so tuyen bạn nhập!", "Thông Báo", MessageBoxButtons.OK, MessageBoxIcon.Warning)
130 Exit Sub
131 End If
132 End While
133 connect.Close()
134 If flag = 0 Then
135 lenh = "Insert into TuyenXe"
136 lenh &= " Values ('" + .cbo_IdTuyen.Text + "', '" + .cbo_TenTuyen.Text + "', N'" + .cbo_DiaDiemDi.Text + "', N'" + .cbo_DiaDiemDen.Text + "')"
137 Dim bo_lenh As New SqlCommand(lenh, connect)
138 connect.Open()
139 Try
140 bo_lenh.ExecuteNonQuery()
141 connect.Close()
142 UpdateTuyenXe()
143 Lock_Control(False)
144 LockButton(False)
145 Form_Main.luoi_Tuyen_xe.Enabled = True
146 MsgBox("Đã cập nhật dữ liệu thành công", MsgBoxStyle.Information, "Thông báo")
147 Catch ex As Exception
148 MessageBox.Show("Không cập nhật được dữ liệu, thêm xe thông thành công.", "Thông báo lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
149 connect.Close()
150 End Try
151 End If
152 Else
153 Huy_thao_tac()
154 End If
155 End If
156 Else
157 'Sua thong tin nguoi dung
158 If TestInfo() Then
159 Dim dialog As DialogResult = MessageBox.Show("Ban có chắn chắc muốn sửa thông tin tuyến xe này." & vbNewLine & _
160 "Click OK đê đồng ý, Cancel để hủy.", "Thông báo", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
161 If dialog = DialogResult.OK Then
162 lenh = "Update TuyenXe Set TenTuyen = '" + .cbo_TenTuyen.Text + "', DiaDiemDi = N'" + .cbo_DiaDiemDi.Text + "', DiaDiemDen = N'" + .cbo_DiaDiemDen.Text + "' where IdTuyen = '" + .cbo_IdTuyen.Text + "'"
163 Dim sqlqr As New SqlCommand(lenh, connect)
164 Try
165 connect.Open()
166 sqlqr.ExecuteNonQuery()
167 connect.Close()
168 UpdateTuyenXe()
169 Lock_Control(False)
170 LockButton(False)
171 Form_Main.luoi_Tuyen_xe.Enabled = True
172 MsgBox("Đã cập nhật dữ liệu thành công", MsgBoxStyle.Information, "Thông báo")
173 Catch ex As Exception
174 MessageBox.Show("Không cập nhật được dữ liệu, sửa thông tin xe thông thành công.", "Thông báo lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
175 connect.Close()
176 End Try
177 Else
178 Huy_thao_tac()
179 End If
180 End If
181 End If
182 End With
183 End Sub
184 #End Region
185
186 #Region "Xu ly huy thao tac cap nhat da hoan tat"
187 Public Sub Huy_thao_tac()
188 Form_Main.luoi_Tuyen_xe.Enabled = True
189 Xoa_lien_ket()
190 Lock_Control(False)
191 LockButton(False)
192 UpdateTuyenXe()
193 End Sub
194 #End Region
195
196 #Region "Xoa tuyen hoan tat"
197 Public Sub Xoa()
198 Dim qs = MessageBox.Show("Bạn chắc chắn muốn xóa tất cả thông tin về:" & vbNewLine & _
199 " - Ma so tuyen: " & Form_Main.cbo_IdTuyen.Text & vbNewLine & _
200 " - Ten tuyen: " & Form_Main.cbo_TenTuyen.Text, "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
201 If qs = DialogResult.Yes Then
202 Dim lenh As String = "Delete from TuyenXe where IdTuyen = '" & Form_Main.cbo_IdTuyen.SelectedValue.ToString & "'"
203 Dim query1 As New SqlCommand(lenh, connect)
204 Try
205 connect.Open()
206 query1.ExecuteNonQuery()
207 connect.Close()
208 UpdateTuyenXe()
209 MsgBox("Dữ liệu đã xóa thành công", vbInformation, "Thông báo")
210 Catch ex As Exception
211 MsgBox("Không cập nhật được dữ liệu, xóa tuyến không thành công", vbExclamation, "Thông báo")
212 End Try
213 Else
214 MsgBox("Đã hủy thao tác xóa!", vbExclamation, "Thông báo")
215 End If
216 End Sub
217 #End Region
218
219 #Region "Cac xu ly phu voi cac dieu khien da hoan tat"
220 Private Sub Lock_Control(ByVal f As Boolean)
221 With Form_Main
222 .cbo_IdTuyen.Enabled = True
223 .cbo_TenTuyen.Enabled = f
224 .cbo_DiaDiemDi.Enabled = f
225 .cbo_DiaDiemDen.Enabled = f
226 End With
227 End Sub
228
229 Private Sub Clear_Control()
230 With Form_Main
231 .cbo_IdTuyen.Text = ""
232 .cbo_TenTuyen.Text = ""
233 .cbo_DiaDiemDi.Text = ""
234 .cbo_DiaDiemDen.Text = ""
235 .cbo_IdTuyen.Focus()
236 End With
237 End Sub
238
239 Private Sub LockButton(ByVal dt As Boolean)
240 With Form_Main
241 .btn_ThemTuyen.Enabled = Not dt
242 .btn_SuaTuyen.Enabled = Not dt
243 .btn_XoaTuyen.Enabled = Not dt
244 .btn_LuuTuyen.Enabled = dt
245 .btn_HuyTuyen.Enabled = dt
246 End With
247 End Sub
248
249 Private Function TestInfo() As Boolean
250 TestInfo = True
251 With Form_Main
252 If Trim(.cbo_IdTuyen.Text) = "" OrElse Trim(.cbo_TenTuyen.Text) = "" _
253 OrElse Trim(.cbo_DiaDiemDi.Text) = "" OrElse Trim(.cbo_DiaDiemDen.Text) = "" Then
254 TestInfo = False
255 MsgBox("Bạn phải nhập đầy đủ thông tin!", MsgBoxStyle.Exclamation, "Thông báo lỗi")
256 End If
257
258 If Trim(.cbo_IdTuyen.Text) = "" Then
259 .cbo_IdTuyen.Focus()
260 Exit Function
261 ElseIf Trim(.cbo_TenTuyen.Text) = "" Then
262 .cbo_TenTuyen.Focus()
263 Exit Function
264 ElseIf Trim(.cbo_DiaDiemDi.Text) = "" Then
265 .cbo_DiaDiemDi.Focus()
266 Exit Function
267 ElseIf Trim(.cbo_DiaDiemDen.Text) = "" Then
268 .cbo_DiaDiemDen.Focus()
269 Exit Function
270 End If
271 End With
272 End Function
273 #End Region
274 End Class
2 Public Class Tuyen_xe
3 Private bang_tuyen_xe As DataTable
4 Private vi_tri_hien_hanh As Integer
5 Private lenh As String
6 Private flag As Boolean
7
8 Public Sub UpdateTuyenXe()
9 Doc_bang_tuyen_xe()
10 Tao_lien_ket()
11 vi_tri_hien_hanh = 0
12 Xuat_thong_tin_Tuyen_xe()
13 Form_Main.luoi_Tuyen_xe.ReadOnly = True
14 Lock_Control(False)
15 LockButton(False)
16 End Sub
17
18 #Region "Doc bang tuyen xe da xong"
19 Private Sub Doc_bang_tuyen_xe()
20 'Lam sach luoi sau moi lan cap nhat
21 Form_Main.luoi_Tuyen_xe.ClearSelection()
22 lenh = "Select * from TuyenXe"
23 bang_tuyen_xe = Doc_bang(lenh)
24 Form_Main.luoi_Tuyen_xe.DataSource = bang_tuyen_xe
25 End Sub
26 #End Region
27
28 #Region "Tao lien ket giua cac dieu khien voi datagridview da hoan tat"
29 Private Sub Tao_lien_ket()
30 With Form_Main.cbo_IdTuyen
31 .DataSource = Form_Main.luoi_Tuyen_xe.DataSource
32 .DisplayMember = "IdTuyen"
33 .ValueMember = "IdTuyen"
34 .SelectedValue = "IdTuyen"
35 End With
36 Xoa_lien_ket()
37
38 Form_Main.cbo_IdTuyen.Text = Form_Main.luoi_Tuyen_xe.Rows(0).Cells.Item(0).Value.ToString
39 Form_Main.cbo_TenTuyen.DataBindings.Add("text", Form_Main.luoi_Tuyen_xe.DataSource, "TenTuyen")
40 Form_Main.cbo_DiaDiemDi.DataBindings.Add("text", Form_Main.luoi_Tuyen_xe.DataSource, "DiaDiemDi")
41 Form_Main.cbo_DiaDiemDen.DataBindings.Add("text", Form_Main.luoi_Tuyen_xe.DataSource, "DiaDiemDen")
42 End Sub
43 #End Region
44
45 #Region "Xoa lien ket giua cac dieu khien voi datagridview da hoan tat"
46 Private Sub Xoa_lien_ket()
47 Form_Main.cbo_TenTuyen.DataBindings.Clear()
48 Form_Main.cbo_DiaDiemDi.DataBindings.Clear()
49 Form_Main.cbo_DiaDiemDen.DataBindings.Clear()
50 End Sub
51 #End Region
52
53 #Region "Xu ly cac nut di chuyen va xuat thong tin tuyen xe da hoan tat"
54 Private Sub Xuat_thong_tin_Tuyen_xe()
55 Dim dong As DataRow = bang_tuyen_xe.Rows(vi_tri_hien_hanh)
56 With Form_Main
57 .cbo_IdTuyen.Text = dong("IdTuyen").ToString
58 .cbo_TenTuyen.Text = dong("TenTuyen").ToString
59 .cbo_DiaDiemDi.Text = CStr(dong("DiaDiemDi"))
60 .cbo_DiaDiemDen.Text = dong("DiaDiemDen").ToString
61 End With
62 End Sub
63
64 Public Sub Di_chuyen_ve_sau()
65 If vi_tri_hien_hanh < bang_tuyen_xe.Rows.Count - 1 Then
66 vi_tri_hien_hanh += 1
67 Xuat_thong_tin_Tuyen_xe()
68 End If
69 End Sub
70
71 Public Sub Di_chuyen_ve_truoc()
72 If vi_tri_hien_hanh > 0 Then
73 vi_tri_hien_hanh -= 1
74 Xuat_thong_tin_Tuyen_xe()
75 End If
76 End Sub
77
78 Public Sub Di_chuyen_ve_dau()
79 vi_tri_hien_hanh = 0
80 Xuat_thong_tin_Tuyen_xe()
81 End Sub
82
83 Public Sub Di_chuyen_ve_cuoi()
84 vi_tri_hien_hanh = bang_tuyen_xe.Rows.Count - 1
85 Xuat_thong_tin_Tuyen_xe()
86 End Sub
87 #End Region
88
89 #Region "Them, sua tuyen da hoan tat"
90 Public Sub Them()
91 flag = True
92 Lock_Control(True)
93 LockButton(True)
94 Clear_Control()
95 Form_Main.luoi_Tuyen_xe.Enabled = False
96 For i As Integer = 0 To bang_tuyen_xe.Rows.Count - 1
97 Form_Main.cbo_TenTuyen.Items.Add(bang_tuyen_xe.Rows(i)("TenTuyen").ToString)
98 Next
99 End Sub
100
101 Public Sub Sua()
102 flag = False
103 Lock_Control(True)
104 LockButton(True)
105 'Form_Main.cbo_SoXe.Enabled = False
106 Form_Main.Luoi_Xe.ReadOnly = False
107 Form_Main.cbo_IdTuyen.Enabled = False
108 End Sub
109
110 Public Sub Luu()
111 Tao_ket_noi()
112 If connect.State = ConnectionState.Open Then
113 connect.Close()
114 End If
115 With Form_Main
116 If flag = True Then 'Them nguoi dung moi
117 If TestInfo() Then
118 Dim dg As DialogResult = MessageBox.Show("Ban có chắn chắc muốn thêm tuyến xe này không." & vbNewLine & _
119 "Click OK đê đồng ý, Cancel để hủy.", "Thông báo", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
120 If dg = Windows.Forms.DialogResult.OK Then
121 Dim flag As Integer = 0
122 Dim sqlCM As New SqlCommand("select IdTuyen from TuyenXe", connect)
123 Dim sqlDR As SqlDataReader
124 connect.Open()
125 sqlDR = sqlCM.ExecuteReader
126 While sqlDR.Read() = True
127 If sqlDR.GetValue(0).ToString = .cbo_IdTuyen.Text Then
128 flag = 1
129 MessageBox.Show("Mã số tuyến " + .cbo_IdTuyen.Text + " đã tồn tại, vui lòng kiểm tra lại ma so tuyen bạn nhập!", "Thông Báo", MessageBoxButtons.OK, MessageBoxIcon.Warning)
130 Exit Sub
131 End If
132 End While
133 connect.Close()
134 If flag = 0 Then
135 lenh = "Insert into TuyenXe"
136 lenh &= " Values ('" + .cbo_IdTuyen.Text + "', '" + .cbo_TenTuyen.Text + "', N'" + .cbo_DiaDiemDi.Text + "', N'" + .cbo_DiaDiemDen.Text + "')"
137 Dim bo_lenh As New SqlCommand(lenh, connect)
138 connect.Open()
139 Try
140 bo_lenh.ExecuteNonQuery()
141 connect.Close()
142 UpdateTuyenXe()
143 Lock_Control(False)
144 LockButton(False)
145 Form_Main.luoi_Tuyen_xe.Enabled = True
146 MsgBox("Đã cập nhật dữ liệu thành công", MsgBoxStyle.Information, "Thông báo")
147 Catch ex As Exception
148 MessageBox.Show("Không cập nhật được dữ liệu, thêm xe thông thành công.", "Thông báo lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
149 connect.Close()
150 End Try
151 End If
152 Else
153 Huy_thao_tac()
154 End If
155 End If
156 Else
157 'Sua thong tin nguoi dung
158 If TestInfo() Then
159 Dim dialog As DialogResult = MessageBox.Show("Ban có chắn chắc muốn sửa thông tin tuyến xe này." & vbNewLine & _
160 "Click OK đê đồng ý, Cancel để hủy.", "Thông báo", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
161 If dialog = DialogResult.OK Then
162 lenh = "Update TuyenXe Set TenTuyen = '" + .cbo_TenTuyen.Text + "', DiaDiemDi = N'" + .cbo_DiaDiemDi.Text + "', DiaDiemDen = N'" + .cbo_DiaDiemDen.Text + "' where IdTuyen = '" + .cbo_IdTuyen.Text + "'"
163 Dim sqlqr As New SqlCommand(lenh, connect)
164 Try
165 connect.Open()
166 sqlqr.ExecuteNonQuery()
167 connect.Close()
168 UpdateTuyenXe()
169 Lock_Control(False)
170 LockButton(False)
171 Form_Main.luoi_Tuyen_xe.Enabled = True
172 MsgBox("Đã cập nhật dữ liệu thành công", MsgBoxStyle.Information, "Thông báo")
173 Catch ex As Exception
174 MessageBox.Show("Không cập nhật được dữ liệu, sửa thông tin xe thông thành công.", "Thông báo lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
175 connect.Close()
176 End Try
177 Else
178 Huy_thao_tac()
179 End If
180 End If
181 End If
182 End With
183 End Sub
184 #End Region
185
186 #Region "Xu ly huy thao tac cap nhat da hoan tat"
187 Public Sub Huy_thao_tac()
188 Form_Main.luoi_Tuyen_xe.Enabled = True
189 Xoa_lien_ket()
190 Lock_Control(False)
191 LockButton(False)
192 UpdateTuyenXe()
193 End Sub
194 #End Region
195
196 #Region "Xoa tuyen hoan tat"
197 Public Sub Xoa()
198 Dim qs = MessageBox.Show("Bạn chắc chắn muốn xóa tất cả thông tin về:" & vbNewLine & _
199 " - Ma so tuyen: " & Form_Main.cbo_IdTuyen.Text & vbNewLine & _
200 " - Ten tuyen: " & Form_Main.cbo_TenTuyen.Text, "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
201 If qs = DialogResult.Yes Then
202 Dim lenh As String = "Delete from TuyenXe where IdTuyen = '" & Form_Main.cbo_IdTuyen.SelectedValue.ToString & "'"
203 Dim query1 As New SqlCommand(lenh, connect)
204 Try
205 connect.Open()
206 query1.ExecuteNonQuery()
207 connect.Close()
208 UpdateTuyenXe()
209 MsgBox("Dữ liệu đã xóa thành công", vbInformation, "Thông báo")
210 Catch ex As Exception
211 MsgBox("Không cập nhật được dữ liệu, xóa tuyến không thành công", vbExclamation, "Thông báo")
212 End Try
213 Else
214 MsgBox("Đã hủy thao tác xóa!", vbExclamation, "Thông báo")
215 End If
216 End Sub
217 #End Region
218
219 #Region "Cac xu ly phu voi cac dieu khien da hoan tat"
220 Private Sub Lock_Control(ByVal f As Boolean)
221 With Form_Main
222 .cbo_IdTuyen.Enabled = True
223 .cbo_TenTuyen.Enabled = f
224 .cbo_DiaDiemDi.Enabled = f
225 .cbo_DiaDiemDen.Enabled = f
226 End With
227 End Sub
228
229 Private Sub Clear_Control()
230 With Form_Main
231 .cbo_IdTuyen.Text = ""
232 .cbo_TenTuyen.Text = ""
233 .cbo_DiaDiemDi.Text = ""
234 .cbo_DiaDiemDen.Text = ""
235 .cbo_IdTuyen.Focus()
236 End With
237 End Sub
238
239 Private Sub LockButton(ByVal dt As Boolean)
240 With Form_Main
241 .btn_ThemTuyen.Enabled = Not dt
242 .btn_SuaTuyen.Enabled = Not dt
243 .btn_XoaTuyen.Enabled = Not dt
244 .btn_LuuTuyen.Enabled = dt
245 .btn_HuyTuyen.Enabled = dt
246 End With
247 End Sub
248
249 Private Function TestInfo() As Boolean
250 TestInfo = True
251 With Form_Main
252 If Trim(.cbo_IdTuyen.Text) = "" OrElse Trim(.cbo_TenTuyen.Text) = "" _
253 OrElse Trim(.cbo_DiaDiemDi.Text) = "" OrElse Trim(.cbo_DiaDiemDen.Text) = "" Then
254 TestInfo = False
255 MsgBox("Bạn phải nhập đầy đủ thông tin!", MsgBoxStyle.Exclamation, "Thông báo lỗi")
256 End If
257
258 If Trim(.cbo_IdTuyen.Text) = "" Then
259 .cbo_IdTuyen.Focus()
260 Exit Function
261 ElseIf Trim(.cbo_TenTuyen.Text) = "" Then
262 .cbo_TenTuyen.Focus()
263 Exit Function
264 ElseIf Trim(.cbo_DiaDiemDi.Text) = "" Then
265 .cbo_DiaDiemDi.Focus()
266 Exit Function
267 ElseIf Trim(.cbo_DiaDiemDen.Text) = "" Then
268 .cbo_DiaDiemDen.Focus()
269 Exit Function
270 End If
271 End With
272 End Function
273 #End Region
274 End Class